(define l '(1 2 3 4 5 6 7 8))
(define (even? x) (= 0 (modulo x 2)))
(for-each print (filter even? l))
